home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / games / spritegrabber / grabber / status.s < prev    next >
Text File  |  1980-01-03  |  1KB  |  65 lines
  1. do_blank_status
  2.     move.l    #0,tcol
  3.     lea    blank_status,a0
  4.     bsr    print
  5.     rts    
  6. ;---------------------------------------------
  7. do_status    movem.l    d0-d7/a0-a6,-(sp)
  8.     move.l    #0,tcol
  9.     lea    blank_status,a0
  10.     bsr    print
  11.     move.w    status_mode,d0
  12.     lea    status_txts_table(pc),a0
  13.     move.l    (a0,d0.w*4),a0
  14.     bsr    print
  15.     cmp.w    #14,status_mode
  16.     bne.s    .out
  17.     move.l    #2,d1
  18.     move.l    #40,d0
  19.     move.l    #8,d3
  20.     move.l    sprite_memsize,d2
  21.     bsr    dec_print
  22.  
  23. .out    movem.l    (sp)+,d0-d7/a0-a6
  24.     rts
  25. ;---------------------------------------------
  26. print_keycode
  27.     move.l    #1,tcol
  28.     lea    keycodetxt,a0
  29.     move.b    keycode,2(a0)
  30.     bsr    print
  31.     rts
  32.  
  33. keycodetxt    dc.b    78,2,' ',0
  34.     even
  35. ;---------------------------------------------
  36. status_txts_table
  37.     dc.l    okay_status        ;0
  38.     dc.l    nofilesel_status    ;1
  39.     dc.l    noiffform_status    ;2
  40.     dc.l    noifffile_status    ;3
  41.     dc.l    noiffbmhd_status    ;4
  42.     dc.l    noiffcmap_status    ;5 
  43.     dc.l    noiffmem_status    ;6
  44.     dc.l    noiffBODY_status    ;7
  45.     dc.l    nodetect_status    ;8
  46.     dc.l    nomask_status    ;9
  47.     dc.l    nosprite_status    ;10
  48.     dc.l    nomemspr_status    ;11
  49.     dc.l    nopalette_status    ;12
  50.     dc.l    nomempal_status    ;13
  51.     dc.l    pralloc_status    ;14
  52.     dc.l    dealloc_status    ;15
  53.     dc.l    deallerr_status    ;16    
  54.     dc.l    nospr_status        ;17
  55.     dc.l    edit_status        ;18
  56.     dc.l    planes_status    ;19
  57.     dc.l    nogen_status        ;20
  58.     dc.l    nospal_status    ;21
  59.     dc.l    chkcols_status    ;22
  60.     dc.l    firstpal_status    ;23
  61.     dc.l    lastpal_status    ;24
  62.     dc.l    remap_status        ;25
  63.     dc.l    -1
  64. ;---------------------------------------------
  65.